#!/usr/bin/perl
#Programmer: Rory Carmichael
#Purpose: grab files matching given prefixes from one folder and put them in another
#Usage: grab_prefs.pl <prefix.list> <indir> <outdir>

my ($pref, $indir, $outdir) = @ARGV;
chomp $outdir;
open(IF, "$pref");
foreach my $line (<IF>) {
	chomp $line;
	`cp $indir/$line.aln.jsonc $outdir`;
}
close(IF);
